home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / Metafont / Inputs / ec / txpseudo.mf < prev    next >
Text File  |  1997-03-16  |  2KB  |  67 lines
  1. % txpseudo.mf
  2. % 
  3. %
  4. % (c) Copyright 1995, 1996, 1997 J"org Knappen
  5. %
  6. % This file is part of ecfonts version 1.0
  7. %
  8. % Please read the files 00readme.txt, 00inst.txt, 00error.txt, and
  9. % copyrite.txt for further information
  10. %
  11. % You find some documentation in ecdoc.tex (needs LaTeX2e)
  12. %
  13. % This file contains pseudoparameters which are not entered in the 
  14. % parameter files, but are computed from the initial parameter set. 
  15. % There are also ad hoc parameters needed only once, and scratch 
  16. % parameters with different values at each occuerence (like |theta|).
  17. %
  18.  
  19. version_check(1,0);  % |version_check| was introduced in dc1.3
  20.  
  21. % Diameters of dots
  22.  
  23. numeric idot_diam#,udot_diam#,pdot_diam#;
  24. idot_diam#=max(dot_size#,cap_curve#);  % dot of letters `i' and `j'
  25. udot_diam#=max(dot_size#,cap_curve#);  % umlaut dots
  26. pdot_diam#=if monospace: 5/4 fi\\ dot_size#; % punctuation dots
  27.  
  28. % |limit_dist| is used in |put_cross|
  29. % (the value of |u| is changed by |mono_adjust|, hence the global setting)
  30.  
  31. vardef limit_dist=5/4u enddef;
  32.  
  33. % More parametrisations for accents from csaccent.mf (csfonts):
  34.  
  35. numeric uc_acc_height, uc_acc_height#,
  36.         lc_acute_height, lc_acute_height#,
  37.         lc_hachek_height, lc_hachek_height#,
  38.         accent_u, accent_u#,
  39.         accent_thin,
  40.         uc_acc_shift, asc_acc_shift;
  41. if unknown circ_weight: circ_weight:=1; fi
  42.  
  43. uc_acc_height# = cap_height#+asc_height#-hi.x_height#;
  44. lc_acute_height# = asc_height#;
  45. lc_hachek_height# = hi.x_height#+acc_height#;
  46. accent_u# = u#;   % unexpanded dimension unit
  47.  
  48. vardef accent_thin = if thin_join > crisp: thin_join else: crisp+eps fi enddef;
  49.  
  50. vardef uc_acc_shift = cap_height - hi.x_height enddef;
  51. vardef asc_acc_shift = asc_height - hi.x_height enddef;
  52.  
  53. % Height of floating accents for capitals (note, that TeX raises them 
  54. % by |uc_acc_shift|)
  55.  
  56. numeric cap_accent_height, cap_accent_height#;
  57. cap_accent_height# = acc_height# + hi.x_height#;
  58.  
  59. def pseudo_setup=
  60.   define_whole_blacker_pixels(idot_diam,udot_diam,pdot_diam);
  61.   define_whole_vertical_pixels(uc_acc_height,lc_acute_height,
  62.     lc_hachek_height);
  63.   define_pixels(accent_u);
  64.   define_whole_vertical_pixels(cap_accent_height);
  65. enddef;
  66. endinput;
  67.